Net Power 2000 February/NetCD2.iso/Patch/age/age2cpfix.exe/data/GAMEDATA.DRS/Unnamed File 000033.bina

Text File | 1999-11-11 | 4.5 KB | 260 lines

;start the pass
(defrule
    (difficulty <= easy)
    (not (map-type fortress) )
=>
    (enable-wall-placement 2)
    (disable-self)
)

(defrule
    (current-age > dark-age)
=>
    (set-goal wall-build NOTICE)
    (enable-timer t-tower 1)
    (disable-self)
)

(defrule
    (goal wall-build NOTICE)
    (or
        (or
            (goal rush-control RUSHING)
            (goal castle-attempt YES)
        )
        (or
            (or
                (goal 1 10)
                (difficulty >= easy)
            )
            (map-type fortress)
        )
    )
=>
    (set-goal wall-build NO)
    (disable-self)
)

(defrule
    (goal wall-build NOTICE)
=>
    (set-goal wall-build YES)
    (disable-self)
)

(defrule
    (goal wall-build NO)
    (or
        (goal personality 1)
        (goal personality 2)
    )
    (not (map-type fortress) )
=>
    (set-goal wall-build YES)
    (disable-self)
)

(defrule
    (goal wall-build NO)
    (current-age == imperial-age)
    (nor
        (map-type fortress)
        (goal castle-attempt YES)
    )
=>
    (set-goal wall-build YES)
    (disable-self)
)

(defrule
    (goal wall-build YES)
    (goal wonder-attempt POSSIBLE)
=>
    (set-goal wall-build NO)
    (disable-self)
)

(defrule
    (goal wall-build NO)
    (building-type-count-total wonder > 0)
    (not (map-type fortress) )
=>
    (set-goal wall-build YES)
)

;*****************************
;*****************************
;build walls

(defrule
    (current-age == feudal-age)
    (goal wall-build YES)
    (can-build-wall-with-escrow 2 stone-wall-line)
    (or
        (can-afford-complete-wall 2 stone-wall-line)
        (stone-amount > 125)
    )
=>
    (release-escrow stone)
    (build-wall 2 stone-wall-line)
)

(defrule
    (goal wall-build YES)
    (can-build-wall-with-escrow 2 stone-wall-line)
    (or
        (can-afford-complete-wall 2 stone-wall-line)
        (stone-amount > 300)
    )
=>
    (release-escrow stone)
    (build-wall 2 stone-wall-line)
)

(defrule
    (goal wall-build NO)
    (building-type-count-total gate > 0)
    (wall-completed-percentage 2 >= 75)
    (wall-completed-percentage 2 < 100)
    (can-build-wall-with-escrow 2 stone-wall-line)
=>
    (release-escrow stone)
    (build-wall 2 stone-wall-line)
)

(defrule
    (goal wall-build YES)
    (building-type-count-total gate < 4)
    (can-build-gate-with-escrow 2)
=>
    (release-escrow stone)
    (build-gate 2)
)

(defrule
    (goal wall-build YES)
    (wall-completed-percentage 2 == 100)
    (building-type-count-total gate == 0)
=>
    (delete-building stone-wall-line)
    (set-goal wall-build NO)
)

(defrule
    (goal wall-build YES)
    (wall-completed-percentage 2 == 100)
=>
    (set-goal wall-build NO)
)

;*****************************
;bombard towers
(defrule
    (can-build bombard-tower)
    (not (goal wonder-attempt POSSIBLE) )
    (or
        (not (goal castle-attempt YES) )
        (building-type-count-total bombard-tower < 2)
    )
    (or
        (goal wall-build NO)
        (timer-triggered t-tower)
    )
=>
    (build bombard-tower)
)

(defrule
    (current-age == feudal-age)
    (can-build watch-tower)
    (or
        (not (goal castle-attempt YES) )
        (building-type-count-total watch-tower < 3)
    )
    (or
        (goal wall-build NO)
        (timer-triggered t-tower)
    )
=>
    (build watch-tower)
)

(defrule
    (current-age == castle-age)
    (can-build watch-tower-line)
    (or
        (not (goal castle-attempt YES) )
        (building-type-count-total watch-tower-line < 6)
    )
    (not (research-available ri-guard-tower) )
    (or
        (goal wall-build NO)
        (timer-triggered t-tower)
    )
=>
    (build watch-tower-line)
)

(defrule
    (current-age == imperial-age)
    (can-build watch-tower-line)
    (nor
        (can-build bombard-tower)
        (goal wonder-attempt POSSIBLE)
    )
    (or
        (not (goal castle-attempt YES) )
        (building-type-count-total watch-tower-line < 9)
    )
    (nor
        (research-available ri-guard-tower)
        (research-available ri-keep)
    )
    (or
        (goal wall-build NO)
        (timer-triggered t-tower)
    )
=>
    (build watch-tower-line)
)

; post-wonder watch towers -- go nuts!
(defrule
    (building-type-count-total wonder > 0)
    (can-build-with-escrow bombard-tower)
=>
    (release-escrow gold)
    (release-escrow stone)
    (build bombard-tower)
)

(defrule
    (building-type-count-total wonder > 0)
    (can-build-with-escrow watch-tower-line)
    (nor
        (research-available ri-guard-tower)
        (research-available ri-keep)
    )
=>
    (release-escrow wood)
    (release-escrow stone)
    (build watch-tower-line)
)

(defrule
    (timer-triggered t-tower)
    (or
        (can-afford-complete-wall 2 stone-wall-line)
        (stone-amount > 500)
    )
=>
    (disable-timer t-tower)
    (enable-timer t-tower 60)
)

(defrule
    (timer-triggered t-tower)
=>
    (disable-timer t-tower)
    (enable-timer t-tower 300)
)